home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / rexx / MicroRexx203.lha / MicroRexx / Rexx / Menu.rexx next >
OS/2 REXX Batch file  |  1998-08-07  |  502b  |  31 lines
  1. /* Menu.rexx */
  2. options results
  3. address 'MicroRexx'
  4. 'OPENWIN' 10 10 300 100 'MicroRexx Demo Window'
  5. w = result
  6. 'MENU' w 0 "Project"
  7. 'ITEM' w 0 0 0 "About" "?"
  8. 'ITEM' w 64 0 1
  9. 'ITEM' w 0 0 2 "Quit" "Q"
  10. 'MENUON' w
  11. do forever
  12.   'MENUHIT' w
  13.   mh = result
  14.   if mh = 0 then do
  15.     'ITEMHIT' w
  16.     ih = result
  17.     if ih = 0 then do
  18.       'REQUEST "MicroRexx Demo" "Select QUIT to exit." "Continue"'
  19.     end
  20.     if ih = 2 then do
  21.       signal 1
  22.     end
  23.   end
  24. end
  25. 1:
  26. 'MENUOFF' w
  27. 'KILLMENU' w
  28. 'CLOSEWIN' w
  29. exit
  30.  
  31.